100 REM PULSING PICTURES FOR C-64
110 REM GEORGE TREPAL   2650 ALTURAS RD
120 REM BARTOW FL  33830
130 :
140 POKE 52,32:POKE56,32:POKE650,128:DIMTS(39),TC(39):GOTO560
150 REM SYNTHETIC CURSOR
160 PRINT"[147]";
170 CD=54272:H=214:L=211
180 P=1024+PEEK(H)*40+PEEK(L)+(PEEK(L)>39)*40
190 CH=PEEK(P):K=128
200 POKEP,((CH+K)AND255):POKEP+CD,PEEK(646)
210 POKE 53272,(PEEK(53272)AND240)+X
220 IFZ$="\"THENPOKE53272,(PEEK(53272)AND240)+4:END
230 X=X+2: IF X=16 THEN X=8
240 GETZ$:IFZ$=""THEN200
250 POKEP,CH:PRINTZ$;
260 IFZ$=CHR$(34)THENPOKE212,0
270 IFZ$="[148]"THENPOKE216,0
280 IFZ$="[133]"THEN320
290 IFZ$="[136]"THEN450
300 GOTO180
310 REM SAVE SCREEN
320 FORJ=0TO39:TS(J)=PEEK(1024+J):TC(J)=PEEK(55296+J):POKE(1024+J),32:NEXT
330 INPUT"PROGRAM NAME";PN$
340 IFPN$=""THEN330
350 PN$=PN$+",S,W"
360 FORJ=0TO39:POKEJ+1024,TS(J):POKE(J+55296),TC(J):NEXT
370 OPEN8,8,8,PN$
380 GOSUB1580
390 FORJ=1024TO2023:VL=PEEK(J):PRINT#8,VL
400 NEXT
410 FORJ=55296TO56295:VL=PEEK(J):PRINT#8,VL
420 NEXT:CLOSE8:CLOSE15
430 GOTO170
440 REM LOAD SCREEN
450 INPUT"[147]PROGRAM NAME";PN$
460 IFPN$=""THEN450
470 PN$=PN$+",S,R"
480 OPEN8,8,8,PN$
490 GOSUB1580
500 FORJ=1024TO2023:INPUT#8,VL:POKEJ,VL
510 NEXT
520 FORJ=55296TO56295:INPUT#8,VL:POKEJ,VL
530 NEXT:CLOSE8:CLOSE15
540 GOTO170
550 REM MOVE CHARACTER SET
560 POKE 53280,12: POKE 53281,0: POKE 646,13
570 PRINT"[147]":PRINTSPC(12)"PULSING PICTURES"
580 PRINTSPC(12)"BY GEORGE TREPAL"
590 PRINTSPC(6)"THE CHARACTERS THAT MOVE ARE:"
600 PRINTSPC(9)"UNSHIFTED 1 THROUGH 9"
610 PRINTSPC(11)"SHIFTED 6  7  8  9"
620 PRINTSPC(6)"AND UNSHIFTED ,  .  *  +  /  -"
630 PRINTSPC(6)"THE \ SIGN ENDS THE PROGRAM."
640 PRINTSPC(6)"F1 SAVES THE SCREEN TO DISK"
650 PRINTSPC(6)"F7 LOADS A SCREEN FROM DISK"
660 PRINTSPC(6)"[150][211][153]PATIENCE IS A VIRTUE - WAIT"
670 PRINTSPC(9)"MOVING CHARACTER SETS"
680 J=53248: K=8192: L=10240: M=12288: N=14336
690 POKE56334,PEEK(56334)AND254:REM INTERRUPT OFF
700 POKE 1,PEEK(1) AND 251: REM I/O OUT
710 FORI=0TO2023:P=PEEK(I+J)
720 POKE I+K,P: POKE I+L,P: POKE I+M,P: POKE I+N,P
730 NEXT
740 POKE 1,PEEK(1) OR 4: REM I/O IN
750 POKE 56334,PEEK(56334) OR 1: REM INTERRUPT ON
760 REM INSTALL CUSTOM CHARACTERS
770 J=8495
780 PRINTSPC(6)"INSTALLING CUSTOM CHARACTERS"
790 J=J+1:READ X:IF X<0 THEN810
800 POKE J,X: GOTO790
810 IF J<10000 THEN J=10543: GOTO790
820 IF J<12000 THEN J=12591: GOTO790
830 IF J<14000 THEN J=14639: GOTO790
840 PRINT"[147]  PRESS THE SPACE BAR TO GO ON OR ANY"
850 PRINT"  OTHER KEY TO CHANGE BACKGROUND COLOR"
860 GETA$:IFA$=""THEN860
870 IFA$<>" "THENPOKE53281,(CLAND15):CL=CL+1:GOTO860
880 X=8:GOTO160
890 DATA0,126,126,96,96,126,126,0,24,60
900 DATA102,195,129,24,60,102,24,36,66,129
910 DATA24,36,66,129,102,60,24,0,195,102
920 DATA60,24,129,66,36,24,129,66,36,24
930 DATA255,255,0,0,0,255,255,0,255,0
940 DATA0,0,255,0,0,0,255,255,0,0
950 DATA0,255,255,0,255,0,0,0,255,0
960 DATA0,0,255,129,129,129,129,129,129,255
970 DATA0,0,0,24,24,0,0,0,192,129
980 DATA3,6,12,24,48,96,3,129,192,96
990 DATA48,24,12,6,192,192,192,192,192,192
1000 DATA192,192,3,3,3,3,3,3,3,3
1010 DATA255,255,0,0,0,0,255,255,195,195
1020 DATA195,195,195,195,195,195,135,36,48,4
1030 DATA108,104,0,49,0,0,0,0,15,15
1040 DATA15,15,204,204,51,51,204,204,51,51
1050 DATA -1
1060 DATA0,126,126,102,102,102,102,0,60,102
1070 DATA195,129,24,60,102,195,36,66,129,24
1080 DATA36,66,129,24,195,102,60,24,0,195
1090 DATA102,60,24,129,66,36,24,129,66,36
1100 DATA255,0,0,0,255,255,0,0,0,0
1110 DATA0,255,0,0,0,255,0,255,255,0
1120 DATA0,0,255,255,0,255,0,0,0,255
1130 DATA0,0,0,126,66,66,66,66,126,0
1140 DATA0,0,60,36,36,60,0,0,3,6
1150 DATA12,24,48,96,193,131,192,96,48,24
1160 DATA12,6,131,193,48,48,48,48,48,48
1170 DATA48,48,12,12,12,12,12,12,12,12
1180 DATA0,255,255,0,0,255,255,0,102,102
1190 DATA102,102,102,102,102,102,192,196,28,80
1200 DATA0,103,37,32,0,0,0,0,240,240
1210 DATA240,240,102,102,153,153,102,102,153,153
1220 DATA -1
1230 DATA0,126,126,6,6,126,126,0,102,195
1240 DATA0,24,60,102,195,24,66,129,24,36
1250 DATA66,129,24,36,24,195,102,60,24,0
1260 DATA195,102,36,24,129,66,36,24,129,66
1270 DATA0,0,0,255,255,0,0,0,0,0
1280 DATA255,0,0,0,255,0,0,255,255,0
1290 DATA0,0,0,255,0,0,255,0,0,0
1300 DATA255,0,0,0,60,36,36,60,0,0
1310 DATA0,126,66,66,66,66,126,0,12,24
1320 DATA48,96,192,129,3,6,48,24,12,6
1330 DATA3,129,192,96,12,12,12,12,12,12
1340 DATA12,12,48,48,48,48,48,48,48,48
1350 DATA0,0,0,255,255,0,0,0,24,24
1360 DATA24,24,24,24,24,24,0,143,160,162
1370 DATA2,42,200,3,240,240,240,240,0,0
1380 DATA0,0,51,51,204,204,51,51,204,204
1390 DATA -1
1400 DATA0,102,102,102,102,126,126,0,195,0
1410 DATA24,60,102,195,24,60,129,24,36,66
1420 DATA129,24,36,66,60,24,195,102,60,24
1430 DATA0,195,66,36,152,129,66,36,24,129
1440 DATA0,0,255,255,0,0,0,255,0,255
1450 DATA0,0,0,255,0,0,0,0,255,255
1460 DATA0,0,0,0,0,0,0,255,0,0
1470 DATA0,255,0,0,0,24,24,0,0,0
1480 DATA255,129,129,129,129,129,129,255,48,96
1490 DATA192,129,3,6,12,24,12,6,3,129
1500 DATA192,96,48,24,3,3,3,3,3,3
1510 DATA3,3,192,192,192,192,192,192,192,192
1520 DATA0,255,255,0,0,255,255,0,54,54
1530 DATA54,54,54,54,54,54,3,121,0,215
1540 DATA16,244,6,48,15,15,15,15,0,0
1550 DATA0,0,102,102,153,153,102,102,153,153
1560 DATA -1
1570 REN ERROR TRAP
1580 OPEN15,8,15
1590 INPUT#15,E,E$
1600 IFE=0THENRETURN
1610 PRINTE,E$:CLOSE8:CLOSE15:END